home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 July / CHIP Turkiye Temmuz 2000.iso / prog / share / 02 / ARCHIVE.Z / AIRes.dll / TEXT / 772 < prev    next >
Text File  |  1998-10-05  |  952b  |  29 lines
  1. /BuildChar {
  2.     Adobe_Illustrator_AI5_vars exch /_bitlobyte exch put
  3.     Adobe_Illustrator_AI5_vars exch /_bitfont exch put
  4.     _bitfont /FontScript get 25 eq
  5.     _bithibyte 0 eq
  6.     _bitlobyte 161 ge _bitlobyte 254 le and
  7.     and and
  8.     {
  9.         Adobe_Illustrator_AI5_vars /_bithibyte Adobe_Illustrator_AI5_vars /_bitlobyte get put
  10.         0 0 setcharwidth
  11.     }
  12.     {
  13.         _bithibyte 256 mul _bitlobyte add
  14.         16 4 string cvrs dup length (K) dup length
  15.         dup 4 -1 roll add string Adobe_Illustrator_AI5_vars exch /_bitkey exch put
  16.         exch _bitkey copy pop _bitkey exch 3 -1 roll putinterval
  17. %        _lineorientation 1 eq _bithibyte 0 ne and {
  18. %            0 _bitfont /FontAscent get neg translate
  19. %        } if
  20.         _bitfont /CharMetrics get _bitkey cvn get 0 setcharwidth
  21.         _bitfont /CharStrings get _bitkey cvn get exec
  22. %        _lineorientation 1 eq _bithibyte 0 ne and {
  23. %            0 _bitfont /FontAscent get translate
  24. %        } if
  25.         Adobe_Illustrator_AI5_vars /_bithibyte 0 put
  26.     } ifelse
  27. } bind def
  28.  
  29.